home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh40.d64 / demo 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  282b  |  11 lines
  1. 100 POKE204,0:IN$="":PRINT"]";
  2. 110 GETEI$:IFEI$=""THEN110
  3. 120 IFEI$=CHR$(13)ANDIN$<>""THENPOKE204,1:PRINT" [157] ":IN=VAL(IN$):RETURN
  4. 130 IFEI$=CHR$(20)THENLY=LEN(IN$):IFLY>0THENIN$=LEFT$(IN$,LY-1):PRINT" [157][157] [157]";
  5. 140 IFLEN(IN$)=>15THEN110
  6. 150 IFEI$="E"THEN190
  7. 160 IFEI$="."THEN190
  8. 170 IFEI$="-"THEN190
  9. 180 IFASC(EI$)>57ORASC(EI$)<48THEN110
  10. 190 IN$=IN$+EI$:PRINTEI$;:GOTO110
  11.